# name : ggsurvfit Kaplan-Miere/KM curve
# key : ggsurvfit_kmplot
# contributor: Shuguang Sun
# --
${99:kmplot} <- ${1:fit2} |>
ggsurvfit(linewidth = 1) +
add_censor_mark(color = "red") +
add_confidence_interval() +
add_risktable(risktable_stats = "{n.risk} ({cum.event})") +
add_quantile(y_value = 0.5, color = "gray50", linewidth = 0.75) +
scale_ggsurvfit(x_scales = list(breaks = seq(0, ${2:24}, by = ${3:3}))) +
labs(
x = "${4:Time (Week)}",
y = \"${5:$$(yas-choose-value '("Progression Free Survival" "Overall Survival" "TBU"))}\"
)
$99
